;;;Quick and dirty routine to append a number to a text string.
;;;Will work on any selectable object having an association group of 1.
;;;Fails if object selected does not have an association group of 1.
;;;The number will have the current precision.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/31/00
;;;	   Edited:  3/31/00
(defun c:addno ()
  (while
    (setq num2add (ureal 0 "" "Number to append: " nil))
    (setq text2add2 (entsel))
    (if text2add2
      (progn
        (setq txtent (entget(car text2add2)))
        (setq txtent (subst (cons 1 (strcat(cdr(assoc 1 txtent))(rtos num2add 2 2)))(assoc 1 txtent)txtent))
        (entmod txtent)
      )
    )
  )
  (princ)
)